home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / METHOD.DO < prev    next >
Text File  |  1991-03-18  |  268b  |  25 lines
  1. /*
  2.     method definition
  3. */
  4. method X::test3(self) 
  5. {
  6.     return(self);
  7. }
  8.  
  9. /*
  10.     this method defines the "lt" operator for class "x"
  11. */
  12. method X::<(self)
  13. {
  14.     return(11);
  15. }
  16.  
  17.  
  18. /*
  19.     main program
  20. */
  21. inherit(Object,X,[]);
  22. a = new(X);
  23. ? "a = ",a;
  24. show methods;
  25.